SET CENT ON
Set proc to sospro
set proc to boxproc
STORE ' ' TO AEANAME,AEAADDR,AEACITY,AEACOUN,AEACURR
STORE .F. TO AEAHEAL,AEADECI
do start
PL1=0
DO WHILE .T.
   SET COLO TO BG+/B
   CLEAR
   do addressa
*   do boxt with 4,3,'MANAGEMENT REPORTING MENU','gr+','rb',.t.,.t.
   DO ADDRTITL WITH ' MANAGEMENT REPORTING MENU '
   SET COLO TO BG+/B,W+/N
   @ 09, 3 to  22, 56 double
   @ 10, 5 PROMPT "A. USAGE OF MEDICINE (BY DATE)              "
   @ 11, 5 PROMPT "B. USAGE OF MEDICINE (SUMMARY-$YTD)         "
   @ 12, 5 PROMPT "C. USAGE OF MEDICINE (SUMMARY-#YTD)         "
   @ 13, 5 PROMPT "D. USAGE OF MEDICINE PER DOCTOR (BY DATE)   "
   @ 14, 5 PROMPT "E. NUMBER OF PROCEDURES PERFORMED  (BY DATE)"
   @ 15, 5 PROMPT "F. NUMBER OF PROCEDURES PERFORMED (SUMMARY-$YTD)"
   @ 16, 5 PROMPT "G. NUMBER OF PROCEDURES PERFORMED (SUMMARY-#YTD)"
   @ 17, 5 PROMPT "H. NUMBER OF PATIENTS SEEN PER DOCTOR (BY DOCTOR)"
   @ 18, 5 PROMPT "I. PRICE LIST "
   @ 21, 5 PROMPT "X. EXIT PROGRAMME                               "
   MENU TO PL1
   SET COLO TO BG+/B
   IF LAST()=27
      EXIT
   ENDIF
   DO CASE
      CASE PL1=1
         DO RDRUGDAT
      CASE PL1=2
         DO RDRUSUMR
      CASE PL1=3
         DO RDRUGSUM
      CASE PL1=4
         DO RDRUGDOC
      CASE PL1=5
         DO RPROCDAT
      CASE PL1=6
         DO RPROSUMR
      CASE PL1=7
         DO RPROCSUM
      CASE PL1=8
         DO RDOCSUM
      CASE PL1=9
         DO INPA
      CASE PL1=10
         EXIT
   ENDCASE
ENDDO
SET COLO TO W/N,W/N
CLEA
CLOS ALL
RETU
